Imports DAO
Imports DTO
Public Class PhuTrachBUS
    Inherits AbstractBUS
    Public Sub Them(ByVal ptDTO As PhuTrachDTO)
        Dim ptDAO As New PhuTrachDAO()
        ptDAO.Them(ptDTO)
    End Sub
    Public Sub XoaTheoMa(ByVal maPhuTrach As String)
        Dim ptDAO As New PhuTrachDAO()
        ptDAO.XoaTheoMa(maPhuTrach)

    End Sub
    Public Sub Sua(ByVal ptDTO As PhuTrachDTO)
        Dim ptDAO As New PhuTrachDAO()
        ptDAO.Sua(ptDTO)
    End Sub
    Public Function TiemKiemTheoMa(ByVal maPhuTrach As String) As PhuTrachDTO
        Dim ptDTO As PhuTrachDTO
        Dim ptDAO As New PhuTrachDAO()
        ptDTO = ptDAO.TiemKiemTheoMa(maPhuTrach)
        Return ptDTO
    End Function
    Public Function LayBang() As DataTable
        Dim dt As DataTable
        Dim ptDAO As New PhuTrachDAO()
        dt = ptDAO.LayBang()
        Return dt
    End Function
    Public Sub CapNhatBang(ByVal dt As DataTable)
        Dim ptDAO As New PhuTrachDAO()
        ptDAO.CapNhatBang(dt)
    End Sub
    Public Function LayDanhSach() As IList
        Dim ds As IList
        Dim ptDAO As New PhuTrachDAO()
        ds = ptDAO.LayDanhSach()
        Return ds
    End Function

End Class
